Libris Britannia 4/science library(b).zip/science library(b)/PROGRAMM/DB_CLIPP/0769A.ZIP/LADORN.PRG

Text File | 1980-01-01 | 1KB | 53 lines

* LADORN.PRG
SET TALK OFF
SET DEVICE TO PRINT
SET SAFETY OFF
SELECT C
USE LADORN3
SELECT B
USE LADORN2
LOCATE FOR CODE = '001'
SELECT A
USE LADORN1
LOCATE FOR UPPER(COMPANY) = 'ASHTON'
@ 12,05 SAY LTRDATE
@ 14,05 SAY NAME
@ 15,05 SAY COMPANY
IF LEN(TRIM(ADDRESS1)) <> 0
   @ PROW()+1,05 SAY ADDRESS1
ENDIF
IF LEN(TRIM(ADDRESS2)) <> 0
   @ PROW()+1,05 SAY ADDRESS2
ENDIF
@ PROW()+1,05 SAY TRIM(CITY)+', '+STATE+' '+ ZIP
@ PROW()+2,05 SAY 'Dear '+DEAR
@ PROW()+1,05 SAY ' '
STORE 'PROW()' TO MRR
STORE '05' TO MCC
STORE 'PARA1' TO MPARA
DO LADORN1
SELECT A
@ PROW()+1,15 SAY '--  '+KEYWORD1
IF LEN(TRIM(KEYWORD2)) <> 0
   @ PROW()+1,15 SAY '--  '+KEYWORD2
ENDIF 0
@ PROW()+1,05 SAY ' '
STORE 'PROW()' TO MRR
STORE '05' TO MCC
STORE 'PARA2' TO MPARA
DO LADORN1
@ PROW()+1,05 SAY ' '
STORE 'PROW()' TO MRR
STORE '05' TO MCC
STORE 'PARA3' TO MPARA
DO LADORN1
SELECT A
@ PROW()+2,05 SAY YOURS
@ PROW()+5,05 SAY FROM
@ PROW()+1,05 SAY TITLE
EJECT
SET CONSOLE ON
SET DEVICE TO SCREEN
RETURN